home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / EDUCATE / MATHX.ARJ / GRAPH.UTL < prev    next >
Text File  |  1991-06-16  |  15KB  |  487 lines
  1. | GRAPH.UTL |
  2. Z''=INFO:z'''=int((z''-int(z''/10000)*10000)/1000):if z'''=0}1
  3. | COPYRIGHT 1991 BY DAVID W. DENKER, Box 115, Isanti, Mn. 55040 |
  4. DSP N" SORRY, THIS FILE CAN ONLY BE RUN USING MATH EXTRA!"N
  5. WAIT5:QUIT
  6. #1
  7. TITLE= GRAPH MAKING PROGRAM
  8. aoff:koff
  9. SAVV GRAFTEMP.VAR
  10. GMOD0
  11. #2
  12. FC0:GOFF:over
  13. cls:$T="":head b0f14;  Hit the F1 key for help.;
  14. dsp nn; Enter Graph  Title: ;:$t=inp{400}
  15. IF $T="0"}Q
  16. dsp n; Enter F(X) using X: ;:$a=inp{404}
  17. dsp n; Enter  left  div's: ;:n'=inp{402}
  18. if n'<5}}n'=5
  19. dsp n; Between maj  div's: ;:d'=inp{403}
  20. dsp n; Start  with  X =  : ;:X=inp{405}:m'=x
  21. dsp n; Add to X per  div.: ;:s''=inp{406}
  22. T''=INT(Z''*.1)-INT(Z''*.01)*10
  23. #3
  24. call221:dsp n; Enter  graph  type: ;:t'=inp(1){407}:WOFF
  25. IF T'>0}}if t'<T-1}4:beep:go3
  26. #4
  27. call220
  28. dsp n; Select  top  scale: ;:s'''=inp(2){401}:WOFF
  29. IF S'''>0}}if s'''<t'''}6:beep:go4
  30. #6
  31. $i="N":IF T'>2}11
  32. dsp n; Do you want a printout? (Y/N): ;:$i=input?(1){409}
  33. #11
  34. hoff:CALL 200:$i="Y"
  35. dsp n; Is all the above correct? (Y/N): ;:$i=input?(1)
  36. if $i<>"Y"}2
  37. c'=0:c''=0:digl9:digr0:CLS:xoff:F''=0:IF N'>22}7
  38. IF T'<3}7
  39. GRAF:F''=2:fc(F''):row0:GOS500:X''=0:IF X'''<>0}7:GOFF:T''=1:GO3
  40. #7
  41. if ABS S''-int ABS S''=0}}if abs x-int abs x=0}10:digl6:digr3
  42. #8
  43. if ABS S''-int(ABS S''*100)*.01=0}}if abs x-int(abs x*100)*.01=0}10
  44. digl4:digr5
  45. #9
  46. if ABS S''-int(ABS S''*1E4)*1E-4=0}}if abs x-int(abs x*1E4)*1E-4=0}10
  47. digl2:digr8
  48. #10
  49. IF T'>2}12
  50. dprn s2$tn:DSP " +("D4")"F4" -(*)  ":PRN " +("D4") -(*)  ":F'''=0:GO13
  51. #12
  52. DSP S2F7$TNF4"    - "F2" +    ":F'''=7
  53. #13
  54. CC(F''')
  55. if t'>4}14
  56. on(s''')c{173,174,175,176,177,178,179,180,181
  57. ,182,183,184,185,186,187,188,189,190}:go15
  58. #14
  59. on(s''')c{373,374,375,376,377,378,379,380,381,382,383,384,385}
  60. #15
  61. sc:if t'<3}19:fc(f'''):x=x+s'':dsp (x-s''):c''=0:n'=n'-2:fc1
  62. if b'=1}18
  63. dsp     " ┼────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┤"
  64. rc
  65. go121
  66. #18
  67. DSP     " ┼─────────┴─────────┴─────────┴─────────┴─────────┴─────────┤"
  68. rc
  69. go121
  70. #19
  71. sc:cc1:C''=D'-1
  72. if b'=1}20
  73. dprn s13" ├────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┤"
  74. rc
  75. go121
  76. #20
  77. dprn s13" ├────┬────┼────┬────┼────┬────┼────┬────┼────┬────┼────┬────┤"
  78. rc
  79. go121
  80. #112:sc:cc1
  81. dprn s13" │    ·    ·    ·    ·    ·    ·    ·    ·    ·    ·    ·    │"o
  82. rc
  83. goto120
  84. #113:SC:FC(F'''):dprn (x-s''):cc1
  85. dprn    " ┤ · · · · · · · · · · · · · · · · · · · · · · · · · · · · · │"o
  86. rc
  87. goto120
  88. #114:sc
  89. if t'<3}123
  90. dsp s13
  91. if c''<>d'}115
  92. if n'=>20}115
  93. FC(F'''):COL0:dprn (x-s'')
  94. #115
  95. cc1
  96. dsp     " └───────────────────────────────────────────────────────────┘"
  97. rc:ff:poff:goto210
  98. #123
  99. cc1
  100. dprn s13" └────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┘"
  101. rc:ff:poff:goto210
  102. #116:COL15:prn s15:a''=a':sc:cc(C''')
  103. #117:if a''=1}118:dprn d240:a''=a''-1:goto117
  104. #118:cc(C'''):if a'=60}119:dprn d(D'')
  105. #119:rc:goto121
  106. #120:if a'<.5}121:if a'>60}}a'=60:if t'=2}116:SC:CC(C''')
  107. if a'=60}121:col(a'+14):if t'>2}119:dsp d(D''):prn s(a'+14) d(D''):RC
  108. #121:C'''=F'':D''=4:dprn n:a'=cint(F$A 1/s'):IF SGN A'<>-1}122
  109. A'=ABS A':C'''=4:D''=42
  110. #122:x=x+s''
  111. c'=c'+1:c''=c''+1:if c'=n'+1}114:if c''<>d'}112:c''=0:goto113
  112. #173:s'=.005:b'=1
  113. dprn "  0        .05       .1        .15       .2        .25       .3 "n:ret
  114. #174:s'=.01:b'=0
  115. dprn "  0   .05  .1   .15  .2   .25  .3   .35  .4   .45  .5   .55  .6 "n:ret
  116. #175:s'=.02:b'=0
  117. dprn "  0   .1   .2   .3   .4   .5   .6   .7   .8   .9    1   1.1  1.2"n:ret
  118. #176:s'=.05:b'=1
  119. dprn "  0        .5         1        1.5        2        2.5        3 "n:ret
  120. #177:s'=.1:b'=0
  121. dprn "  0   .5    1   1.5   2   2.5   3   3.5   4   4.5   5   5.5   6 "n:ret
  122. #178:s'=.2:b'=0
  123. dprn "  0    1    2    3    4    5    6    7    8    9   10   11   12 "n:ret
  124. #179:s'=.5:b'=1
  125. dprn "  0         5        10        15        20        25        30 "n:ret
  126. #180:s'=1:b'=0
  127. dprn "  0    5   10   15   20   25   30   35   40   45   50   55   60 "n:ret
  128. #181:s'=2:b'=0
  129. dprn "  0   10   20   30   40   50   60   70   80   90   100  110  120"n:ret
  130. #182:s'=5:b'=0
  131. dprn "  0   25   50   75   100  125  150  175  200  225  250  275  300"n:ret
  132. #183:s'=10:b'=0
  133. dprn "  0   50   100  150  200  250  300  350  400  450  500  550  600"n:ret
  134. #184:s'=20:b'=0
  135. dprn "  0   100  200  300  400  500  600  700  800  900 1000 1100 1200"n:ret
  136. #185:s'=50:b'=0
  137. dprn "  0   250  500  750 1000 1250 1500 1750 2000 2250 2500 2750 3000"n:ret
  138. #186:s'=100:b'=0
  139. dprn "  0   500 1000 1500 2000 2500 3000 3500 4000 4500 5000 5500 6000"n:ret
  140. #187:s'=200:b'=1
  141. dprn "  0       2000      4000      6000      8000      10000     12000"n:ret
  142. #188:s'=2000:b'=1
  143. dprn "  0       20000     40000     60000     80000    100000    120000"n:ret
  144. #189:s'=20000:b'=1
  145. dprn "  0        .2M       .4M       .6M       .8M       1M       1.2M"n:ret
  146. #190:s'=200000:b'=1
  147. dprn "  0        2M        4M        6M        8M        10M       12M"n:ret
  148. #200
  149. if $i="Y"}201:ret
  150. #201
  151. $I="Y"
  152. dsp N; Is the Printer on? (Y/N): ;:$i=INPUT?:dsp n:if $i="Y"}202:ret
  153. #202:pon:ret
  154. #210
  155. if t'>2}c300:POFF
  156. dsp f14r25o;"R"edo/quit;
  157. i=kyin:if i=82}2:if i=114}2
  158. LODV GRAFTEMP.VAR
  159. DEL GRAFTEMP.VAR
  160. quit
  161. #220
  162. if t'>4}225
  163. t'''=19
  164. WINDD WR(t'''+1)WC19BB1BF15R2C50;
  165.  (1)  0 - .3
  166.  (2)  0 - .6
  167.  (3)  0 - 1.2
  168.  (4)  0 - 3
  169.  (5)  0 - 6
  170.  (6)  0 - 12
  171.  (7)  0 - 30
  172.  (8)  0 - 60
  173.  (9)  0 - 120
  174.  (10) 0 - 300
  175.  (11) 0 - 600
  176.  (12) 0 - 1200
  177.  (13) 0 - 3000
  178.  (14) 0 - 6000
  179.  (15) 0 - 12000
  180.  (16) 0 - 120000
  181.  (17) 0 - 1.2M
  182.  (18) 0 - 12M
  183. ;:ret
  184. #221
  185. IF N'>22}222
  186. IF T''>2}223
  187. #222:T=4
  188. WINDD WC13WR(T)C50R3BB1BF15;
  189.  (1) POINT
  190.  (2) BAR
  191. ;:ret
  192. #223:T=8
  193. WINDD WC22WR(T)C50R3BB1BF15;
  194.  (1) POINT
  195.  (2) BAR
  196.  (3) GRAPHIC LINE
  197.  (4) GRAPHIC FILL
  198.  (5) GRAPHIC LINE ±
  199.  (6) GRAPHIC FILL ±
  200. ;:RET
  201. #225
  202. t'''=14
  203. WINDD WR(t'''+1)WC15BB1BF15R2C50;
  204.  (1)  ± .3
  205.  (2)  ± .6
  206.  (3)  ± 1.2
  207.  (4)  ± 3
  208.  (5)  ± 6
  209.  (6)  ± 12
  210.  (7)  ± 30
  211.  (8)  ± 60
  212.  (9)  ± 120
  213.  (10) ± 300
  214.  (11) ± 600
  215.  (12) ± 1200
  216.  (13) ± 6000
  217. ;:ret
  218.  
  219. #300
  220. sc:x=m':d'''=s''/y''':n''=(n'+1)*y'''+2:s'=s'/x''':M'''=14.5*X'''
  221. m=60*x'''-1:m''=m+M''':n'''=x:y'=2.5*y''':A=0:n=y'''
  222. IF T'=4}340
  223. if t'>4}350
  224. y'=y'+1
  225. gos325:F'=F
  226. if a'<1}}a'=1:x'=M'''+a':gos325
  227. #305
  228. i'=kyck:if i'=27}310
  229. if a'<1}}a'=1:x''=M'''+a':gos326:IF B''=1}}IF F=4}C345:F'=F
  230. x'=x'':y'=y'+1:gos325:if n=0}c356:if n''>0}305
  231. #310
  232. rc:ret
  233. #325
  234. a'''=a:a=F$A 1:a'=a/s':if abs a'>m}}a'=sgn a'*m
  235. f=2:x=x+d''':n''=n''-1:n=n-1:IF SGN A'<>-1}r:A'=ABS A':f=4:ret
  236. #326
  237. IF F<>F'}330
  238. FC(F)
  239. if X'>=M''}}if x''>=m''}r
  240. #327
  241. LINE X(X')EX(X'')Y(Y')EY(Y')W1:RET
  242. #330
  243. FC(F'):IF ABS A>TAN 90*.1}327
  244. FC(F):IF ABS A'''>TAN 90*.1}327
  245. IF X'=14.5*X'''}R
  246. FC(F'):LINE X(M'''+1)EX(X')Y(Y'-1)EY(Y'-1)W1
  247. FC(F):LINE EX(X'')Y(Y')EY(Y'):RET
  248.  
  249. #340
  250. N''=N''-1
  251. #341
  252. i'=kyck:if i'=27}310
  253. gos325:IF ABS A>TAN90*.1}}F=6
  254. IF B''=1}}IF F=4}C345:if a'=0}342:x'=M'''+a'
  255. fc(f):LINE X(M''')EX(X')Y(Y')EY(Y')W1
  256. #342
  257. y'=y'+1:if n=0}c356:if n''>0}341:rc:ret
  258. #345
  259. FC(F):DOT X(M'''+M+5)Y(Y')T1:RET
  260.  
  261. #350
  262. m=3
  263. #351
  264. dsp f1r(m)c44"|":m=m+1:if m<3+n'}351
  265. dsp f1r2c44"┼"r(3+n')c44"┴"
  266. m'=30*x'''
  267. m=30*x'''-1
  268. IF T'=6}366
  269. Y'=Y'+1
  270. gos360:F'=F
  271. x'=M'''+m'+a':gos360
  272. #355
  273. i'=kyck:if i'=27}310
  274. x''=M'''+m'+a':gos361:F'=F
  275. x'=x'':y'=y'+1:gos360:if n=0}c356:if n''>0}355:rc:ret
  276. #356
  277. N=Y''':X=N'''+S'':N'''=X:RET
  278. #360
  279. A'''=A
  280. a=F$A 1
  281. a'=a/s'
  282. if abs a'>m}}a'=sgn a'*m
  283. f=2:x=x+d''':n''=n''-1:n=n-1
  284. IF SGN A'<>-1}r:f=4:ret
  285. #361
  286. IF F<>F'}363
  287. if X'=X''}}IF X'>=M''-1}r
  288. if x'=X''}}IF X'<=m'''+1}r
  289. FC(F)
  290. #362
  291. IF ABS(X'-X'')=>M'}R
  292. LINE X(X')EX(X'')Y(Y')EY(Y')W1:RET
  293. #363
  294. IF ABS A'''>TAN90*.1}365
  295. IF ABS A>TAN90*.1}364
  296. FC(F'):LINE X(M'''+M'-1)EX(X')Y(Y')EY(Y')
  297. FC(F):LINE EX(X'')Y(Y')EY(Y'):RET
  298. #364
  299. FC(F')
  300. IF F'=4}}LINE X(M''')EX(X')Y(Y')EY(Y')
  301. IF F'=2}}LINE X(M'''+M'+M-1)EX(X')Y(Y')EY(Y'):RET
  302. #365
  303. FC(F)
  304. IF F=4}}LINE X(M''')EX(X'')Y(Y')EY(Y')
  305. IF F=2}}LINE X(M'''+M'+M-1)EX(X'')Y(Y')EY(Y'):GO362
  306. #366
  307. i'=kyck:if i'=27}310
  308. f'=f
  309. gos360:x'=M'''+M'+a':IF SGN A'=-1}}X'=X'-1
  310. if f<>f'}368
  311. fc(f)
  312. LINE X(M'''+M'-1)EX(X')Y(Y')EY(Y')W1
  313. #367
  314. y'=y'+1:if n=0}c356:if n''>1}366:rc:ret
  315. #368
  316. IF ABS A>TAN90*.1}369
  317. IF ABS A'''>TAN90*.1}C370
  318. FC(F):LINE X(M'''+M'-1)EX(X')Y(Y')EY(Y')W1:GO367
  319. #369
  320. FC(4):LINE X(M''')EX(M'''+M'-1)Y(Y')EY(Y')W1
  321. FC(2):LINE X(M'''+M'-1)EX(M'''+M'+M-1):GO367
  322. #370
  323. FC(4):LINE X(M''')EX(M'''+M'-1)Y(Y'-1)EY(Y'-1)W1
  324. FC(2):LINE X(M'''+M'-1)EX(M'''+M'+M-1):RET
  325.  
  326. #373:s'=.01:b'=1
  327. dsp " -.3       -.2       -.1        0        .1        .2        .3 "n:ret
  328. #374:s'=.02:b'=0
  329. dsp " -.6  -.5  -.4  -.3  -.2  -.1   0   .1   .2   .3   .4   .5   .6 "n:ret
  330. #375:s'=.04:b'=0
  331. dsp "-1.2  -1   -.8  -.6  -.4  -.2   0   .2   .4   .6   .8    1   1.2"n:ret
  332. #376:s'=.1:b'=1
  333. dsp " -3        -2        -1         0         1         2         3 "n:ret
  334. #377:s'=.2:b'=0
  335. dsp " -6   -5   -4   -3   -2   -1    0    1    2    3    4    5    6 "n:ret
  336. #378:s'=.4:b'=0
  337. dsp " -12  -10  -8   -6   -4   -2    0    2    4    6    8   10   12 "n:ret
  338. #379:s'=1:b'=0
  339. dsp " -30  -25  -20  -15  -10  -5    0    5   10   15   20   25   30 "n:ret
  340. #380:s'=2:b'=0
  341. dsp " -60  -50  -40  -30  -20  -10   0   10   20   30   40   50   60 "n:ret
  342. #381:s'=4:b'=0
  343. dsp "-120 -100  -80  -60  -40  -20   0   20   40   60   80   100  120"n:ret
  344. #382:s'=10:b'=0
  345. dsp "-300 -250 -200 -150 -100  -50   0   50   100  150  200  250  300"n:ret
  346. #383:s'=20:b'=0
  347. dsp "-600 -500 -400 -300 -200 -100   0   100  200  300  400  500  600"n:ret
  348. #384:s'=40:b'=1
  349. dsp "-1200     -800      -400        0        400       800      1200"n:ret
  350. #385:s'=200:b'=1
  351. dsp "-6000     -4000     -2000       0       2000      4000      6000"n:ret
  352.  
  353. #400:windd wr8wc42r5c30;
  354.  Enter the title that will be displayed
  355.  or  printed  at  the top of the graph.
  356.  The  title  can be up to 60 characters
  357.  long.   If  you want to quit the graph
  358.  utility here, enter 0.
  359.     Hit any key to continue.;
  360. wait 40:woff:quit
  361. #401:windd wr8wc42r5c30;
  362.  This is the scale that will be used at
  363.  the top of the graph  and is the scale
  364.  for  the  result  value  of each line.
  365.  Select the scale by using the (number)
  366.  in front of the value range you want.
  367.     Hit any key to continue.;
  368. wait 40:woff:call220:quit
  369. #402:windd wr17wc70r5c4;
  370.    0    1    2    3    4    5    6
  371.    ├────┼────┼────┼────┼────┼────┼── Enter the number of lines down
  372.   0├ . . . . . . . . . . . . . . . . the  left  side  of the graph.
  373.    │    .    .    .    .    .    .   This graph has  9  lines.  The
  374.    │    .    .    .    .    .    .   normal  display  can  handle a
  375.    │    .    .    .    .    .    .   graph of  19  lines  and still
  376.  40├ . . . . . . . . . . . . . . . . see  the title.   The  printer
  377.    │    .    .    .    .    .    .   can handle as many as you have
  378.    │    .    .    .    .    .    .   paper for.   You  can  get  50
  379.    │    .    .    .    .    .    .   lines on  one sheet  easy.  If
  380.  80├ . . . . . . . . . . . . . . . . your video can handle CGA, EGA
  381.    └────┴────┴────┴────┴────┴────┴── or VGA graphic  modes  and you
  382.                                      want to use it, you  must  use
  383.                                      22 or less lines.
  384.    Hit any key to continue.;
  385. wait50:woff:quit
  386. #403:windd wr14wc67r5c4;
  387.    0    1    2    3    4    5    6
  388.    ├────┼────┼────┼────┼────┼────┼── Enter  the  number of lines 
  389.   0├ . . . . . . . . . . . . . . . . between each major division
  390.    │    .    .    .    .    .    .   on  the  left  side  of the
  391.    │    .    .    .    .    .    .   graph.  The major divisions
  392.    │    .    .    .    .    .    .   are  where  the  values are
  393.   4├ . . . . . . . . . . . . . . . . given.  This graph has four
  394.    │    .    .    .    .    .    .   lines or divisions  between
  395.    │    .    .    .    .    .    .   each major division.
  396.    │    .    .    .    .    .    .   
  397.   8├ . . . . . . . . . . . . . . . .
  398.    └────┴────┴────┴────┴────┴────┴──   Hit any key to continue.;
  399. wait50:woff:quit
  400. #404:windd wr10wc38r6c38;
  401.  Enter the function or formula you
  402.  want to graph using "X".   If you
  403.  want to graph the cosine function,
  404.  enter COS X <enter>.  If you want
  405.  to  graph  z²+z-1,  enter X^2+X-1.
  406.  The left scale will  be  used  to
  407.  show the X value down the graph.
  408.    Hit any key to continue.;
  409. wait50:woff:quit
  410. #405:windd wr14wc67r5c4;
  411.    0    1    2    3    4    5    6
  412.    ├────┼────┼────┼────┼────┼────┼── Enter the value the  major 
  413.   5├ . . . . . . . . . . . . . . . . divisions  will start with
  414.    │    .    .    .    .    .    .   on  the  left  side of the
  415.    │    .    .    .    .    .    .   graph.  This graph started
  416.    │    .    .    .    .    .    .   with 5.
  417.   9├ . . . . . . . . . . . . . . . . 
  418.    │    .    .    .    .    .    .   
  419.    │    .    .    .    .    .    .   
  420.    │    .    .    .    .    .    .   
  421.  13├ . . . . . . . . . . . . . . . .
  422.    └────┴────┴────┴────┴────┴────┴──   Hit any key to continue.;
  423. wait50:woff:quit
  424. #406:windd wr14wc67r5c4;
  425.    0    1    2    3    4    5    6
  426.    ├────┼────┼────┼────┼────┼────┼── Enter  the value that will
  427.   0├ . . . . . . . . . . . . . . . . be added to each  division
  428.    │    .    .    .    .    .    .   on  the  left  side of the
  429.    │    .    .    .    .    .    .   graph.   This  graph has 2
  430.    │    .    .    .    .    .    .   added  to  each  division.
  431.   8├ . . . . . . . . . . . . . . . . The  major  divisions will
  432.    │    .    .    .    .    .    .   print  and/or  display the
  433.    │    .    .    .    .    .    .   values  at  that  point on
  434.    │    .    .    .    .    .    .   the graph.
  435.  16├ . . . . . . . . . . . . . . . .
  436.    └────┴────┴────┴────┴────┴────┴──   Hit any key to continue.;
  437. wait50:woff:quit
  438. #407
  439. if t>6}408
  440. windd wr11wc36r6c32;
  441.  There  are  two  types of graphs
  442.  that can  be  generated by  this
  443.  utility  on  your  video system.
  444.  The  point graph of  selection 1
  445.  or the bar graph of selection 2.
  446.  The  bar type  graph draws a bar
  447.  from the left side  of the graph
  448.  to the resulting point.
  449.    Hit any key to continue.;
  450. wait50:woff:call221:quit
  451. #408
  452. windd wr18wc36r3c32;
  453.  There  are six  types  of graphs
  454.  that can  be  generated by  this
  455.  utility  on  your  video system.
  456.  The point graph of  selection 1,
  457.  the  bar  graph  of  selection 2
  458.  or the graphic mode graphs of 3,
  459.  4, 5, and 6.  The bar type graph
  460.  draws  a  bar from the left side
  461.  of  the  graph to  the resulting
  462.  point.  The  graphic mode graphs
  463.  are line or fill from 0 type and
  464.  are of much better quality,  but
  465.  they can only be  printed  using
  466.  the "Print Screen" Key.   (EGA &
  467.  VGA video require DOS V4.0+)
  468.    Hit any key to continue.;
  469. wait50:woff:call223:quit
  470. #409
  471. windd wr11wc36r6c20;
  472.  If you answer Y to this question
  473.  the  graph  will  be sent to the
  474.  printer.   It  will also be sent
  475.  to  the  display  monitor.   The
  476.  printer  must be on and ready to
  477.  print  AND  be able to print the
  478.  complete IBM character set.
  479.  (Including graphic characters)
  480.    Hit any key to continue.;
  481. wait50:woff:quit
  482. #500
  483. g'=vidm:x'''=0:b''=0:if g'>19}r
  484. x'''=data g'{0,0,0,0,0,0,8,0,0,0,0,0,0,0,8,8,8,8,8,0}
  485. y'''=data g'{0,0,0,0,0,0,8,0,0,0,0,0,0,0,8,14,14,16,16,0}
  486. B''=DATA g'{0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0,1,0,0}:ret
  487.